100 PRINT"[147]":POKE53248+21,0:POKE53248+23,0:POKE53248+29,0:POKE808,225
110 Q1$=""
120 Q2$=""
130 Q3$=""
140 PRINT"[147]      P H O N C E N T R A T I O N "
150 REM
160 REM BY MARIO VELA-MARTINEZ
170 REM
180 REM ASSISTANCE BY:
190 REM CARLOS VELA-MARTINEZ &
200 REM RAYMOND PRACHUN
210 REM
220 REM  1018 LAVENDER CRT.
230 REM  OSHAWA, ONTARIO (CANADA)
240 REM  L1G 3H1
250 REM
260 REM
270 DIMWD$(14),L1(14),C1$(124),C2(124):DIMB1(14):DIMS4(14),EE$(7)
280 DIMB2(14):DIMSP(14):DIMCH(36):MA=2
290 DIMI1(30),I2(30),I3(30),I4(30),I5(30):DIMW1(20),W2(20),W3(20):RESTORE
300 DIMS1(14),S2(14),S3(14),Y1$(15),Y2$(15)
310 MA=2:PRINTCHR$(8):GOSUB320:GOTO400
320 RESTORE
330 FORI=1TO20:READA$:READA:C1$(I)=A$:C2(I)=A:NEXTI
340 REM
350 REM
360 REM
370 RETURN
380 CL=CL+2:POKE53280,CL:POKE53281,CL+2
390 RETURN
400 GOSUB3180
410 FORI=1TO27:READA,B,C,D,E:I1(I)=A:I2(I)=B:I3(I)=C:I4(I)=D:I5(I)=E:NEXTI
420 FORI=1TO14:READA,B,C:W1(I)=A:W2(I)=B:W3(I)=C:NEXTI
430 GOSUB2490
440 REM
450 GOSUB3930
460 POKEV+21,0:PRINT"[147]":POKE53280,6:POKE53281,0
470 G1$="[159] [213][195][195][201][160][213][195][195][201][160][213][195][195][201] [213][195][195][201][160][213][195][195][201]"
480 G2$="[159] [194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194]"
490 G3$="[159] [202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203]"
500 FORI=1TO3:PRINTG1$:PRINTG2$:PRINTG3$:PRINT"":NEXT
510 PRINT"[154]    [146]"
520 PRINT"    [146]"
530 PRINT"    [146][159]"
540 FORT=1784TO1810:POKET,160:POKET+54272,14:NEXT
550 FORT=1770TO1024STEP-40:POKET,160:POKET+54272,14:NEXT
560 FORT=1051TO1063:POKET,160:POKET+54272,14:NEXT
570 FORT=1063TO1743STEP40:POKET,160:POKE54272+T,14:NEXT
580 FORT=1783TO1771STEP-1:POKET,160:POKET+54272,14:NEXT
590 FORT=1811TO1823:POKET,160:POKET+54272,14:NEXTT
600 G4$=""
610 PRINT"";G4$;"WORD LIST":D1=30
620 PRINT"";G4$;"[157]1. ";WD$(1):XY=1:GOSUB700
630 PRINT"";G4$;"[157]2. ";WD$(2):XY=2:GOSUB700
640 PRINT"";G4$;"[157]3. ";WD$(3):XY=3:GOSUB700
650 PRINT"";G4$;"[157]4. ";WD$(4):XY=4:GOSUB700
660 PRINT"";G4$;"[157]5. ";WD$(5):XY=5:GOSUB700
670 PRINT"";G4$;"[157]6. ";WD$(6):XY=6:GOSUB700
680 PRINT"";G4$;"[157]7. ";WD$(7):XY=7:GOSUB700
690 GOTO1190
700 D=L1(XY):PRINT"[145]";TAB(D1+D);"--":RETURN
710 RESTORE
720 PRINTQ3$"            ONE MOMENT PLEASE ";
725 FORI=1TO36:CH(I)=0:NEXT
730 FORT=1TO7
740 A=INT(RND(1)*20+1)
750 IFCH(A)=50THEN740
760 IFC1$(A)=""THEN740
770 WD$(T)=C1$(A):WD$(T+7)=C1$(A)
780 IFWD$(T)=""THEN740
790 IFWD$(T+7)=""THEN740
800 L1(T)=C2(A):L1(T+7)=C2(A)
810 CH(A)=50
820 NEXTT
830 GOSUB960:RETURN
920 DATA"THRONE",1,"THRISTY",1,"THRILL",1,"AUTHOR",3,"CLOTHES",4
930 DATA"SHADOW",1,"SHOOT",1,"FLUSH",4,"SHELF",1,"CASH",3
940 DATA"CHOKE",1,"CHISEL",1,"CATCH",4,"CHURCH",5,"PATCH",4
950 DATA"WHOLE",1,"WHEEL",1,"WHISPER",1,"WHARF",1,"WHIRL",1
960 REM
970 FORI=1TO14
980 F=0:IS=INT(RND(1)*14+1)
990 F=F+1:IFSP(F)=ISTHEN980
1000 IFF=14THEN1020
1010 GOTO990
1020 F=0
1030 IFIS=1THENS1(I)=1106:S2(I)=49:S3(I)=48:S4(I)=10:B1(I)=81:B2(I)=36
1040 IFIS=2THENS1(I)=1111:S2(I)=49:S3(I)=49:S4(I)=11:B1(I)=81:B2(I)=77
1050 IFIS=3THENS1(I)=1116:S2(I)=49:S3(I)=50:S4(I)=12:B1(I)=81:B2(I)=116
1060 IFIS=4THENS1(I)=1121:S2(I)=49:S3(I)=51:S4(I)=13:B1(I)=81:B2(I)=155
1070 IFIS=5THENS1(I)=1126:S2(I)=49:S3(I)=52:S4(I)=14:B1(I)=81:B2(I)=195
1080 IFIS=6THENS1(I)=1346:S2(I)=49:S3(I)=53:S4(I)=15:B1(I)=129:B2(I)=36
1090 IFIS=7THENS1(I)=1351:S2(I)=49:S3(I)=54:S4(I)=16:B1(I)=129:B2(I)=77
1100 IFIS=8THENS1(I)=1361:S2(I)=49:S3(I)=55:S4(I)=17:B1(I)=129:B2(I)=155
1110 IFIS=9THENS1(I)=1366:S2(I)=49:S3(I)=56:S4(I)=18:B1(I)=129:B2(I)=195
1120 IFIS=10THENS1(I)=1586:S2(I)=49:S3(I)=57:S4(I)=19:B1(I)=177:B2(I)=36
1130 IFIS=11THENS1(I)=1591:S2(I)=50:S3(I)=48:S4(I)=20:B1(I)=177:B2(I)=77
1140 IFIS=12THENS1(I)=1596:S2(I)=50:S3(I)=49:S4(I)=21:B1(I)=177:B2(I)=116
1150 IFIS=13THENS1(I)=1601:S2(I)=50:S3(I)=50:S4(I)=22:B1(I)=177:B2(I)=155
1160 IFIS=14THENS1(I)=1606:S2(I)=50:S3(I)=51:S4(I)=23:B1(I)=177:B2(I)=195
1170 SP(I)=IS
1180 NEXT:RETURN
1190 FORI=1TO14
1200 POKES1(I),S2(I):POKE54272+S1(I),1:POKES1(I)+1,S3(I):POKE54272+S1(I)+1,1
1210 NEXTI:GOSUB4130:GOTO1560
1220 A$=""
1230 PRINTQ1$;"                                       "
1240 PRINTQ1$;ZZ$(MA);" ";U$
1250 A$=""
1260 GETB$:IFB$=""THEN1260
1270 IFB$="[133]"THEN2480
1280 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
1290 IFB$<>CHR$(I)THENJW=JW+1
1300 NEXTI:IFJW=10THEN1260
1310 X1=JX-48:IFX1<0ORX1>2THEN1260
1320 PRINTA$;B$
1330 GETB$:IFB$=""THEN1330
1340 IFB$="[133]"THEN2480
1350 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
1360 IFB$<>CHR$(I)THENJW=JW+1
1370 NEXTI:IFB$=CHR$(20)THENPRINTA$;"  ":GOTO1260
1380 IFJW=10THEN1330
1390 X2=JX-48
1400 A8=X1*10:A9=A8+X2:IFA9>23THEN1330
1410 PRINTA$;"";B$
1420 GETB$:IFB$=""THEN1420
1430 IFB$="[133]"THEN2480
1440 X1=X1*10:X=X1+X2:IFX>23THEN1330
1450 IFB$=CHR$(20)THENPRINTA$;"  ":B$="":GOTO1260
1460 IFB$=CHR$(13)THENA$="":RETURN
1470 B$="":GOTO1420
1480 POKE198,0:GOSUB1530:PRINTQ1$;WR$
1490 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
1500 GETB$:IFB$=""THEN1500
1510 IFB$<>CHR$(13)THEN1500
1520 GOSUB1530:RETURN
1530 PRINTQ1$;"                                       "
1540 PRINTQ2$;"                                       "
1550 PRINTQ3$;"                                      ":RETURN
1560 GOSUB2410
1570 A$=""
1580 GOSUB1220:W=0
1590 W=W+1:IFS4(W)=XTHENA=W:GOTO1610
1600 GOTO1590
1610 W=0
1620 IFC1$(A)<>"NIL"THEN1660
1630 PRINTQ1$;"                                        "
1640 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
1650 XC=2:GOTO1560
1660 GOSUB3510
1670 U$="NOW CHOOSE A SECOND CARD":GOSUB1220
1680 IFS4(A)<>XTHEN1720
1690 PRINTQ1$;"                                        "
1700 PRINTQ1$;" PLEASE DO NOT PICK THE SAME CARD TWICE!":GOSUB4860
1710 GOTO1670
1720 W=0
1730 W=W+1:IFS4(W)=XTHENA1=W:GOTO1750
1740 GOTO1730
1750 W=0:IFC1$(A1)<>"NIL"THEN1790
1760 PRINTQ1$;"                                       "
1770 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
1780 GOTO1670
1790 REM
1800 GOSUB3650
1810 D$=WD$(A):E$=WD$(A1):D=L1(A):E=L1(A1):D1$=MID$(D$,D):E1$=MID$(E$,E)
1820 IFLEFT$(D1$,2)=LEFT$(E1$,2)THEN1870
1830 PRINTQ1$;"                                      "
1840 POKES+6,9:FORI=255TO0STEP-10
1850 POKES+4,17:POKES,20:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
1860 WR$="       SORRY, THAT IS NOT A MATCH [146] ":GOSUB1480:GOTO2170
1870 REM
1880 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
1890 POKES+4,17:POKES,200:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
1900 WR$="     THAT'S RIGHT WE HAVE A MATCH! "
1910 FORQ=1TO10:POKE53280,Q:POKE53281,Q+1
1920 FORDY=1TO30:NEXTDY:NEXTQ:POKE53280,6:POKE53281,0
1930 GOSUB1480
1940 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2)
1950 PRINTQ2$;" WHICH WORD CAN YOU COMPLETE[160]WITH ";D1$;"[146]?   "
1960 GETB$:IFB$=""THEN1960
1970 IFB$="1"THENNM=1:GOSUB2070:GOTO2080
1980 IFB$="2"THENNM=2:GOSUB2070:GOTO2080
1990 IFB$="3"THENNM=3:GOSUB2070:GOTO2080
2000 IFB$="4"THENNM=4:GOSUB2070:GOTO2080
2010 IFB$="5"THENNM=5:GOSUB2070:GOTO2080
2020 IFB$="6"THENNM=6:GOSUB2070:GOTO2080
2030 IFB$="7"THENNM=7:GOSUB2070:GOTO2080
2040 IFB$="[133]"THEN2480
2050 GOTO1960
2060 GOTO2080
2070 D$=MID$(WD$(NM),L1(NM)):AN$=LEFT$(D$,2):RETURN
2080 IFEE$(NM)<>"NIL"THEN2120
2090 PRINTQ2$;"                                       "
2100 PRINTQ1$;"    SORRY ";B$;" HAS ALREADY BEEN PICKED.":GOSUB4860
2110 GOTO1940
2120 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2):IFD1$=AN$THEN2210
2130 POKES+6,9:POKES,40:POKES+1,255:FORI=1TO10:NEXTI:FORI=255TO0STEP-10
2140 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
2150 PRINTQ2$;"                                      "
2160 PRINTQ1$;" I AM VERY SORRY, BUT YOU ARE WRONG.     ":GOSUB4860
2170 POKES1(A)+54272,1:POKES1(A)+54273,1
2180 POKES1(A),S2(A):POKES1(A)+1,S3(A)
2190 POKES1(A1)+54272,1:POKES1(A1)+54273,1
2200 POKES1(A1),S2(A1):POKES1(A1)+1,S3(A1):POKEV+21,0:GOTO1560
2210 PRINTQ1$;"                                        "
2220 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
2230 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
2240 FORI=1TO10:POKE53280,I:POKE53281,I+1:NEXTI:POKE53280,6:POKE53281,0
2250 WR$="          WOW!! WOW!! WOW!!":GOSUB1480
2260 IFMA=1THENT1=T1+1
2270 IFMA=2THENT2=T2+1
2280 IFT1+T2<>7THEN2300
2290 GOSUB3790:GOSUB4170:POKEV+21,0:GOTO4230
2300 REM
2310 PRINTQ1$;"                                        "
2320 PRINTQ1$;"    YOU MAY NOW HAVE ANOTHER TURN.      "
2330 FORDY=1TO1000:NEXTDY
2340 IFMA=1THENT1=T1-1
2350 IFMA=2THENT2=T2-1
2360 GOSUB3790:C1$(A)="NIL":C1$(A1)="NIL"
2370 IFMA=1THENT1=T1+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
2380 IFMA=2THENT2=T2+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
2390 GOSUB4130:POKEV+21,0
2400 GOTO1580
2410 IFXC=2THENXC=0:GOTO2440
2420 IFMA=2THENMA=1:GOTO2440
2430 IFMA=1THENMA=2:GOTO2460
2440 U$="WHICH CARD WOULD YOU LIKE?     "
2450 Z=26:RX=27:RETURN
2460 U$="WHICH CARD WOULD YOU LIKE?     "
2470 Z=26:RX=27:RETURN
2480 V=53248:POKEV+21,0:GOSUB2880:GOTO4640
2490 POKE53280,14:POKE53281,0:PRINT"[147]"
2500 A$="":PRINTCHR$(142)
2510 PRINT"[156]TH"
2520 PRINT"[153]TH"
2530 PRINT"";TAB(32);"[129]CH"
2540 PRINT"";TAB(35);"WH"
2550 PRINT"[158]SH"
2560 PRINT"[154]WH"
2570 PRINT"";TAB(30);"[158]CH"
2580 PRINT"";TAB(16);"[159]SH"
2600 FORI=1TO14
2610 PRINTA$;TAB(11);"[158][145][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160]"
2620 PRINTTAB(11);" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][209]"
2630 PRINTTAB(11);"[209][180]PHONCENTRATION[158][170] "
2640 PRINTTAB(11);" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][209]"
2650 PRINTTAB(11);"[209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] "
2660 PRINTTAB(11)" A PHONIC DRILL &"
2670 PRINTTAB(13)" PRACTICE GAME"
2675 PRINTTAB(10)"PART 5: DOUBLE VOWELS"
2680 PRINTTAB(09)"[159]BY MARIO VELA-MARTINEZ"
2690 PRINTTAB(09)"[159]          AND"
2700 PRINTTAB(09)"[159] CARLOS VELA-MARTINEZ"
2710 PRINTTAB(08)"[159]ASSISTANCE BY RAY PRACHUN"
2730 PRINTA$;TAB(11);"[145] [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209]"
2740 PRINTTAB(11);"[209][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
2750 PRINTTAB(11);" [180]PHONCENTRATION[158][170][209]"
2760 PRINTTAB(11);"[209][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
2770 PRINTTAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] [209]"
2780 POKES+24,0
2790 POKES+4,65:POKES+1,W1(I):POKES+0,W2(I):FORKK=1TOW3(I):NEXTKK:POKES+4,64
2800 NEXTI:FORKK=1TO1500:NEXT:POKES+1,0:POKES,0
2810 POKES+24,15
2820 POKEV+21,12:POKEV+4,86:POKEV+5,100:POKEV+6,255:POKEV+7,100
2830 GOSUB710
2840 POKEV+21,0:PRINT"[147]    DO YOU WISH INSTRUCTIONS (Y/N)? "
2850 GETZ$:IFZ$=""THEN2850
2860 IFZ$="N"THENRETURN
2870 IFZ$<>"Y"THEN2850
2880 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- ":POKE53280,6:POKE53281,12:PRINTCHR$(14)
2890 PRINT"  [212]HE OBJECT OF THE GAME IS TO TRY TO"
2900 PRINT" COMPLETE THE WORD LIST, SHOWN ON THE"
2910 PRINT" RIGHT-HAND SIDE OF THE SCREEN."
2920 PRINT"  [207]N A TURN, A PLAYER IS ALLOWED TO "
2930 PRINT" CHOOSE TWO CARDS. [212]HE AIM IS TO PICK "
2940 PRINT" TWO VOWEL COMBINATIONS THAT MATCH.       [198]OR EXAMPLE..."
2950 PRINT"             [144][212][200] AND [144][212][200]"
2960 PRINT"  [201]F THE TWO CARDS MATCH, THE PLAYER"
2970 PRINT" IS ALLOWED TO TRY TO DECIDE WHICH"
2980 PRINT" WORD WILL BE PROPERLY COMPLETED WITH"
2990 PRINT" THAT VOWEL COMBINATION.[160]                 [198]OR EXAMPLE..."
3000 PRINT"   [160]    [144]--[201][206][199] + [144][212][200] = [144][212][200][201][206][199]"
3010 PRINT"[144]       [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]";
3020 GETB$:IFB$<>CHR$(13)THEN3020
3030 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- "
3040 PRINT"  [215]HEN THE ANSWER IS CORRECT, THE"
3050 PRINT" PLAYER IS AWARDED 1 POINT AND IS THEN"
3060 PRINT" GIVEN ANOTHER TURN. [207]NCE ALL THE CARDS"
3070 PRINT" HAVE BEEN DRAWN, THE PLAYER WITH THE"
3080 PRINT" HIGHEST SCORE WINS!!"
3090 PRINT"  [211]O THAT YOU DON'T HAVE TO DO ALL THE"
3100 PRINT" WORK, TWO FRIENDLY [194]UGABOOS HAVE BEEN"
3110 PRINT" HIRED TO HELP YOU. [193]S YOU PICK A CARD,"
3120 PRINT" A [194]UGABOO WILL POP OUT AND FLIP THAT"
3130 PRINT" CARD OVER SO THAT YOU ARE ABLE TO SEE"
3140 PRINT" IT!"
3142 PRINT"  [201]F YOU NEED SEE THE INSTRUCTIONS "
3143 PRINT" AGAIN, JUST HIT THE '[198]1' KEY. [194]UT"
3144 PRINT" REMEMBER THAT THIS WILL END THE GAME"
3145 PRINT" IN PROGRESS."
3150 PRINT"[144]          [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][194][197][199][201][206]";
3160 GETB$:IFB$<>CHR$(13)THEN3160
3170 PRINT"[147]":PRINTCHR$(142):RETURN
3180 V=53248:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,15
3190 POKEV+28,255:POKEV+37,5:POKEV+38,0
3200 REM
3210 FORSP=832TO894:READA:POKESP,A:NEXT:GOSUB380
3220 FORSP=896TO958:READA:POKESP,A:NEXT:GOSUB380
3230 FORSP=960TO1022:READA:POKESP,A:NEXT:GOSUB380
3240 POKEV+21,0:POKEV+39,1:POKEV+40,1:POKEV+41,1:POKEV+42,1
3250 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,11:POKES+2,0
3260 POKES+3,4
3270 RETURN
3280 REM
3290 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
3300 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,80,0,0
3310 DATA85,85,80,85,85,80,21,85,64,0,0,0,0,0,0
3320 REM
3330 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
3340 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,0,0,5
3350 DATA5,85,85,5,85,85,1,85,84,0,0,0,0,0,0
3360 REM
3370 DATA17,0,17,21,0,21,16,0,1,16,128,129,18,162,161,18,162,161,18,251,225
3380 DATA18,251,225,22,251,229,21,149,149,5,85,84,7,213,244,5,127,84,5,85,84
3390 DATA1,85,80,0,85,64,0,0,0,1,81,80,5,85,84,5,85,84,1,81,80
3400 DATA8,97,0,0,100
3410 DATA8,97,0,0,100,8,97,0,0,50,8,97,0,0,50,8,97,0,0,100,8,97,0,0,50
3420 DATA8,97,0,0,50,10,143,0,0,100,8,97,0,0,100,8,97,0,0,200:REM    ***
3430 DATA8,97,10,143,100,8,97,10,143,50,8,97,10,143,50,8,97,10,143,100
3440 DATA 8,97,10,143,50,8,97,10,143,50,10,143,12,143,100,8,97,10,143,100
3450 DATA 8,97,10,143,200,10,143,12,143,100,10,143,12,143,50,10,143,12,143,50
3460 DATA 10,143,12,143,100,10,143,12,143,100,12,143,16,195,100
3470 DATA 8,97,4,48,100,8,97,4,48,400
3480 REM ***
3490 DATA 7,12,100,8,97,25,8,97,100,8,97,100,9,104,100,8,97,25,7,12,100
3500 DATA 5,152,120,7,119,40,7,119,5,8,97,70,7,12,100,6,71,25,5,152,100
3510 POKES+5,0:POKES+6,0:FORJ=0TO7:POKEV+J,0:NEXT
3520 Y=B1(A):X=B2(A):POKES+24,15
3530 FORO=4TOXSTEP4:POKEV+21,1:POKEV+0,O:POKEV+1,Y
3540 POKES+4,33:POKES+1,40:POKES,100:POKES+4,32
3550 POKEV+21,2:POKEV+2,O+1
3560 POKEV+3,Y:POKES+4,129:POKES+1,100:POKES,100:POKES+4,128:NEXT
3570 POKEV+21,4:POKEV+4,O-5:POKEV+5,Y-2:POKES+1,0:POKES,0
3580 POKES1(A)+54272,1:POKES1(A)+54273,1
3590 REM
3600 D$=WD$(A):D=L1(A):D1$=MID$(D$,D)
3610 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
3620 D=ASC(D2$):D1=ASC(D3$)
3630 POKES1(A),D-64:POKES1(A)+1,D1-64
3640 RETURN
3650 Y=B1(A1):X=B2(A1)
3660 FORO=4TOXSTEP4:POKEV+21,5:POKEV+0,O:POKEV+1,Y
3670 POKES+4,33:POKES+1,60:POKES,100:POKES+4,32
3680 POKEV+21,6:POKEV+2,O+1
3690 POKEV+3,Y:POKES+4,129:POKES+1,150:POKES,100:POKES+4,128:NEXT
3700 POKEV+42,1:POKEV+21,12:POKE2043,15:POKEV+6,O-5:POKEV+7,Y-2:POKES+1,0
3710 POKES,0:POKES1(A1)+54272,1:POKES1(A1)+54273,1
3720 REM
3730 D$=WD$(A1):D=L1(A1):D1$=MID$(D$,D)
3740 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
3750 D=ASC(D2$):D1=ASC(D3$)
3760 POKES1(A1),D-64:POKES1(A1)+1,D1-64
3770 RETURN
3780 STOP
3790 REM
3800 IFNM=1THENAV$="":GOTO3870
3810 IFNM=2THENAV$="":GOTO3870
3820 IFNM=3THENAV$="":GOTO3870
3830 IFNM=4THENAV$="":GOTO3870
3840 IFNM=5THENAV$="":GOTO3870
3850 IFNM=6THENAV$="":GOTO3870
3860 IFNM=7THENAV$=""
3870 PRINTAV$;"[158][153]";TAB(31);WD$(NM)
3880 EE$(NM)="NIL"
3890 POKES1(A)+54272,2:POKES1(A)+54273,2
3900 POKES1(A),160:POKES1(A)+1,160
3910 POKES1(A1)+54272,2:POKES1(A1)+54273,2
3920 POKES1(A1),160:POKES1(A1)+1,160:RETURN
3930 PRINT"[147]":PRINTCHR$(142):POKE53280,6:POKE53281,12
3940 CC=CC+1:IFCC=3THENCC=0:RETURN
3950 PRINT"[147]    PLAYER # ";CC
3960 PRINT"   NAME: ";
3970 REM
3980 IU=9
3990 ZZ$(CC)="":POKE204,1
4000 GETZA$:IFZA$=""THEN4000
4010 IFASC(ZA$)=13THENPRINT" ":POKE204,1:SN$=ZZ$:GOTO4090
4020 IFASC(ZA$)=20THENGOTO4070
4030 IFIU+1=>18THEN4000
4040 IFASC(ZA$)<65ORASC(ZA$)>90THEN4000
4050 IU=IU+1:ZZ$(CC)=ZZ$(CC)+ZA$
4060 PRINT;TAB(IU);ZA$;:GOTO4000
4070 IFIU=9THENGOTO4000
4080 ZZ$(CC)=LEFT$(ZZ$(CC),LEN(ZZ$(CC))-1):IU=IU-1:GOTO4060
4090 IFZZ$(CC)=""THEN3950
4100 GOTO3940
4110 :
4120 :
4130 EZ$=""
4140 PRINTEZ$;"[145][154][175][175][175][175][175][175][175][175][175][175][175][175]"
4150 PRINT"            "
4160 PRINT"            "
4170 FORI=1TOCC:PRINTEZ$;TAB(I+26);"";ZZ$(1);:NEXT:PRINT":";T1
4180 EZ$=""
4190 FORI=1TOYY:PRINTEZ$;TAB(I+26);ZZ$(2);:NEXT:PRINT":";T2
4200 PRINT"[154][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
4210 IFT1+T2=7THEN4230
4220 RETURN
4230 PRINTA$;"                                        "
4240 POKEV+21,0:FORI=1TO1000:NEXT
4250 A1$=""
4260 A$="[157][157][157][158][213]   [146][201][157][157][157][157][157][202]   [146][203][157][157][157][157][223] [146][169][157][157] [146][157][157][185] [146][185]"
4270 AA$="[157][157][157][158]     [157][157][157][157][157]     [157][157][157][157]   [157][157] [157][157]    "
4280 PRINT"[147]":IFT1>T2THEN PRINT"      ";ZZ$(1)
4290 IFT2>T1THEN PRINT"      ";ZZ$(2)
4300 PRINT"      IS THE WINNER!!"
4310 GOSUB4750
4320 PRINT"[145][145][145][145][145][145]":PRINTA1$;A$
4330 PRINT"[155]       [146]"
4340 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
4350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
4360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
4370 FORT=VTOV+5:POKET,0:NEXT:POKES+24,15
4380 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
4390 POKES+12,9:POKES+13,11:POKES+11,129:POKES+7,100:POKES+8,40:POKES+11,128
4400 POKEV+21,1:POKEV+1,206:POKEV+3,206:A=32:H=206
4410 FORTH=10TO32STEP4:POKEV+21,1:POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
4420 POKEV+21,2:POKES+4,129:POKES,150:POKEV+0,TH:POKEV+2,TH
4430 POKES+1,200:POKES+4,128:NEXTTH
4440 FORTT=1TO5:FORTH=ATOA+24STEP4:POKEV+0,TH:POKEV+1,H:POKEV+21,1
4450 POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
4460 POKEV+2,TH:POKEV+3,H
4470 POKEV+21,2:POKES+4,129:POKES,150:POKES+1,200:POKEV+4,128:NEXTTH:H=H-8
4480 A=A+24:NEXTTT:PRINT"";TAB(20);AA$
4490 POKEV+21,4:POKEV+4,166:POKEV+5,172:PRINT"";TAB(20);A$;""
4500 POKE1601,100:POKE1605,100:POKE1601+54272,1:POKE1605+54272,1
4510 POKES+2,0:POKES+3,5:POKES+5,6:POKES+6,10
4520 POKES+9,1:POKES+10,15:POKES+12,6:POKES+13,10:POKES+24,15
4530 FORI=1TO27:POKES+4,65:POKES+11,65:POKES,I2(I):POKES+7,I4(I)
4540 POKES+1,I1(I):POKES+8,I3(I):POKES+11,64:POKES+4,64
4550 FORK=1TOI5(I):NEXTK:NEXTI
4560 FORH=1TO500:NEXT:POKES,0:POKES+1,0:POKES+7,0:POKES+8,0
4570 PRINT"[155]    DO YOU WISH TO PLAY AGAIN?[160](Y/N)   ";
4580 REM
4590 GETB$:IFB$=""THEN4590
4600 IFLEFT$(B$,1)="Y"THEN4640
4610 IFLEFT$(B$,1)<>"N"THEN4590
4620 PRINT"[147][146]BYE!":POKEV+4,24:POKEV+5,59:POKES+4,21
4630 POKES,20:POKES+1,100:POKES+4,20:END
4640 JX=0:JW=0:A9=0:A8=0:X1=0:X2=0:X=0:A=0:A1=0:W=0:T1=0:T2=0
4650 FORI=1TO7:EE$(I)="":NEXT
4660 POKEV+21,0:PRINT"[147]      SAME PLAYERS AGAIN  (Y/N) ?"
4670 GETB$:IFB$=""THEN4670
4680 IFLEFT$(B$,1)="Y"THEN4730
4690 IFLEFT$(B$,1)<>"N"THEN4670
4700 PRINT"[147]"
4710 FORI=1TO15:Y1$(I)="":Y2$(I)="":NEXTI:FORI=1TO14:SP(I)=0:NEXT
4720 FORI=1TO7:EE$(I)="":NEXT:GOSUB320:PRINT"[147]":GOSUB710:GOTO450
4730 PRINT"[147]":FORI=1TO14:SP(I)=0:NEXT:GOSUB320:GOSUB710
4740 GOTO460
4750 POKE53280,0:PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
4760 PRINT"   [206][209] [156][209] [158][209][209] [209][209][129] [209][209][155][209][209][209][209][209] [209][158] [209][155][209][209] [209][209][209][153][209][209] [209][205]"
4770 PRINT"  [206][209][209][209][159][209][158][209][209]   [209][154][209][209][155][209][158][209][209]  [159][209][150][209][209][156][209] [209][209][158][209]  [209] [209][209]  [205]"
4780 PRINT" [206] [209][159][209] [209][209][209]  [158][209][209][209] [209][153][209][209]  [150][209][209][156][209][209][209][155][209][209][209][158][209]  [209][151][209][158][209] [159][209] [205]"
4790 PRINT"[206][209][209][159][209][209][209][158][209]  [156][209] [129][209][209][153] [209][209][158][209] [209]  [150][209][209][159][209][209][209] [209][153][209]  [209][209][209][209][129][209]  [205]"
4800 PRINT"                                       "
4810 PRINT"                                       "
4820 PRINT"                                       "
4830 PRINT"                                       "
4840 REM  PRINT"[154]                                       "
4850 RETURN
4860 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
4870 GETZ$:IFZ$=""THEN4870
4880 IFZ$<>CHR$(13)THEN4870
4890 GOSUB1530:RETURN